home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO076.dsk / INSTALL.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  81 lines
  1. 10  REM <CTRL-M><CTRL-M><CTRL-[><CTRL-O>[[[[[[[[[[[[[[[[[[[[[<CTRL-N><CTRL-X><CTRL-M>Menu Installer<CTRL-M>by Paul Lieberman<CTRL-M><CTRL-[><CTRL-O>[[[[[[[[[[[[[[[[[[[[[<CTRL-N><CTRL-X><CTRL-M><CTRL-M>
  2. 20  DIM NM$(20),PN$(20),PA$(20)
  3. 30  HOME :D$ =  CHR$(4)
  4. 40  PRINT D$"PR#3": PRINT 
  5. 50 P = 20
  6. 60 SP$ = "<CTRL-O> <CTRL-N>"
  7. 70 CM$ = "<CTRL-[><CTRL-O>C<CTRL-N><CTRL-X>"
  8. 80 AP$ = "<CTRL-[><CTRL-O>A<CTRL-N><CTRL-X>"
  9. 90 U$ = "<CTRL-[><CTRL-O>U<CTRL-N><CTRL-X>"
  10. 100 CR$ = "_"
  11. 110 BS$ =  CHR$(8)
  12. 120  VTAB 2: HTAB 20: PRINT "<CTRL-O>          Ramdisk file utility           <CTRL-N>";
  13. 130  FOR V = 3 TO 7: VTAB V: HTAB 20: PRINT SP$SP$;: HTAB 59: PRINT SP$SP$;: NEXT 
  14. 140  VTAB 8: HTAB 20: PRINT "<CTRL-O>  Copyright 1989        OrchardWare Inc. <CTRL-N>";
  15. 150  VTAB 5: HTAB 32: PRINT "<CTRL-[><CTRL-O>[<CTRL-O><CTRL-N>  Installer  <CTRL-[><CTRL-O>[<CTRL-N><CTRL-X>";
  16. 160  VTAB 20: PRINT 
  17. 170  VTAB 24: INVERSE : PRINT " Portions of Ramdisk Utilities copyright by Glen E. Bredon and Alan Bird ";
  18. 180  NORMAL 
  19. 190  VTAB 20: PRINT 
  20. 200  POKE 34,11: POKE 35,23
  21. 210  HOME 
  22. 220  PRINT "Root Prefix of your ramdisk "U$"  /";: GOSUB 670
  23. 230 PF$ = "/" +L$
  24. 240  PRINT 
  25. 250  PRINT "Root Prefix of your startup disk "U$" /";: GOSUB 670
  26. 260 ST$ = "/" +L$
  27. 270  PRINT 
  28. 280  PRINT "Path of the directory you want to copy to "PF$" "U$" /";: GOSUB 670
  29. 290 RD$ = "/" +L$
  30. 300  PRINT 
  31. 310  PRINT "Ramdisk         "U$" "PF$
  32. 320  PRINT "Startup disk    "U$" "ST$
  33. 330  PRINT "Copy files from "U$" "RD$
  34. 340  PRINT : PRINT "Is this correct? (Y/n) ";
  35. 350  GET A$: PRINT A$
  36. 360  IF A$ = "N"  OR A$ = "n"  THEN 210
  37. 370  HOME 
  38. 380  PRINT CM$"   Installing your data.....";
  39. 390 L$ = "":A$ = ""
  40. 400  PRINT D$"STORE MENU.VAR"
  41. 410  PRINT "......";
  42. 420  PRINT D$"BLOAD INST.QUIT,A$2000"
  43. 430  POKE 8960, LEN(PF$)
  44. 440  FOR X = 1 TO  LEN(PF$)
  45. 450  POKE 8960 +X, ASC( MID$ (PF$,X,1)) +128
  46. 460  NEXT 
  47. 470  PRINT D$"BSAVE INST.QUIT,A$2000,L790"
  48. 480 Q$ =  CHR$(34)
  49. 490  PRINT D$"OPEN PATCH"
  50. 500  PRINT D$"WRITE PATCH"
  51. 510  PRINT "LOAD RAMLOADER"
  52. 520  PRINT "70 RS$="Q$RD$Q$
  53. 530  PRINT "80 RD$="Q$PF$Q$
  54. 540  PRINT "SAVE RAMLOADER"
  55. 550  PRINT "RUN INSTALL,@600"
  56. 560  PRINT D$"CLOSE PATCH"
  57. 570  PRINT "......"
  58. 580  PRINT D$"EXEC PATCH"
  59. 590  END 
  60. 600  HOME :D$ =  CHR$(4)
  61. 610  PRINT "Installation complete! "
  62. 620  PRINT : PRINT "You should now copy the Ram Utility files to the proper directories."
  63. 630  PRINT : PRINT "Please refer to the Doc's."
  64. 640  PRINT D$"CLOSE PATCH"
  65. 650  PRINT D$"DELETE PATCH"
  66. 660  TEXT : END 
  67. 670 L$ = ""
  68. 680  PRINT CR$BS$;
  69. 690 K =  PEEK(49152): IF K <128  THEN 690
  70. 700  POKE 49168,0
  71. 710 K = K -128
  72. 720  IF K = 8  OR K = 127  THEN 790
  73. 730  IF K = 13  THEN  PRINT " ": RETURN 
  74. 740  IF K <65  AND  LEN(L$) = 0  THEN 690
  75. 750  IF K <45  THEN 690
  76. 760 K$ =  CHR$(K): PRINT K$;
  77. 770 L$ = L$ +K$
  78. 780  GOTO 680
  79. 790  IF  LEN(L$) >0  THEN  PRINT " "BS$BS$;
  80. 800  IF  LEN(L$) >1  THEN L$ =  LEFT$(L$, LEN(L$) -1): GOTO 680
  81. 810  GOTO 670